#!/usr/bin/perl

use strict;

my $DOMAIN = "test";
my $ACTION = "runThis";
system(". /etc/sipman.conf $DOMAIN $ACTION");

print("============= Env ============\n");
foreach my $key (sort(keys %ENV)) {
    print "$key = $ENV{$key}<br>\n";
}
